home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softdisk Supreme
/
Softdisk Supreme.iso
/
pc
/
DSK Files
/
0-49
/
SD022c.dsk
/
PAL.21502.VAN TYNE.JUN.83.B.bas
< prev
next >
Wrap
BASIC Source File
|
2003-06-12
|
2KB
|
48 lines
3 D$ = CHR$(4)
4 HOME
5 PRINT "//////////////////////////////////////"
10 PRINT "// HELLO AGAIN SOFTPALS... //"
15 PRINT "// THE BIG RED APPLE CLUB AND MYSELF//"
20 PRINT "// ARE TRYING TO COMPILE A LIST OF //"
25 PRINT "// APPLE /// OWNERS WHO ARE //"
30 PRINT "// INTERESTED IN HELPING WRITE OR //"
35 PRINT "// OR OBTAINING PUBLIC DOMAIN //"
40 PRINT "// APPLE /// SOFTWARE. HELP IS ALSO //"
45 PRINT "// NEEDED TO CONVERT MANY APPLE ][ //"
50 PRINT "// PROGRAMS TO BUSINESS BASIC VIA //"
55 PRINT "// THE USE OF A CONVERTER. IF YOU //"
60 PRINT "// CAN BE OF HELP, OR WOULD LIKE TO //"
65 PRINT "// BE INCLUDED IN OUR SIG (SPECIAL //"
70 PRINT "// USERS GROUP) PLEASE WRITE OR CALL//"
75 PRINT "// ME, OR CONTACE THE BIG RED APPLE //"
80 PRINT "// CLUB. IN GENERAL, WE ARE TRYING //"
85 PRINT "// TO ORGANIZE APPLE /// OWNERS //"
90 PRINT "// IN MUCH THE SAME WAY APPLE ]['RS //"
95 PRINT "// HAVE DONE. //"
96 PRINT "// THE PURPOSE OF THIS VENTURE IS TO //"
97 PRINT "// DEVELOPE A PUBLIC DOMAIN SOFTWARE //"
98 PRINT "// LIBRARY FOR THE APPLE ///. //"
100 PRINT "//////////////////////////////////////"
110 INPUT "HIT RETURN TO CONTINUE.............";T$
111 IF T$ = " " THEN 112
112 HOME
113 PRINT : PRINT : PRINT : PRINT : PRINT
5000 PRINT TAB( 19);"THANKS AGAIN"
5001 PRINT
5005 PRINT TAB( 14);"MARK A. VAN TYNE"
5010 PRINT TAB( 14);"1922 BEDFORD STREET"
5015 PRINT TAB( 14);"CUMBERLAND, MARYLAND"
5020 PRINT TAB( 29);"21502"
5021 PRINT
5025 PRINT "]]]]]]]]]]]]]]]]]]]]][[[[[[[[[[[[[[[[[["
5030 PRINT "]]]]]]]]]]]]]]]]]]]]][[[[[[[[[[[[[[[[[["
5035 PRINT "]]]]]] THE ADDRESS FOR THE BIG RED [[[["
5040 PRINT "]]]]]] APPLE CLUB IS: [[[["
5045 PRINT "]]]]]] THE BIG RED APPLE CLUB ][[["
5050 PRINT "]]]]]] 1301 N. 19 TH [[[["
5055 PRINT "]]]]]] NORFOLK, NE 68701 ]]]]"
5060 PRINT "]]]]]]]]]]]]]]]]]]]]][[[[[[[[[[[[[[[[[["
5061 PRINT : PRINT
5070 INPUT "HIT RETURN TO RUN PAL MENU.";T$
5080 IF T$ = " " THEN 5090
5090 PRINT D$"RUN PAL.MENU,D1"